home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / ml data maker (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  460b  |  15 lines
  1. 60000 PRINT"[147]DATA STATEMENT GENERATOR"
  2. 60001 INPUT"START LOCATION";S
  3. 60002 INPUT"END LOCATION";E
  4. 60003 INPUT"LINE NUMBER";L
  5. 60004 PRINT"[147]"MID$(STR$(L),2)"FORI="S"TO"E":READA:POKEI,A:NEXTI"
  6. 60005 POKE631,19:POKE632,13:POKE633,13:POKE198,3
  7. 60006 PRINT"L="L"+1:S="S":E="E":GOTO60008":END
  8. 60008 PRINT"[147]"MID$(STR$(L),2)"D[193]";:G=PEEK(57)+256*PEEK(58)
  9. 60010 FORJ=STOE
  10. 60020 IFPOS(0)+PEEK(209)>77THENPRINT"[157] ":PRINT"L="L"+1:S="J":E="E":GOTO"G
  11. 60030 IFPOS(0)+PEEK(209)>77THENPOKE631,19:POKE632,13:POKE633,13:POKE198,3:END
  12. 60040 PRINTMID$(STR$(PEEK(J)),2)",";
  13. 60050 NEXT
  14. 60060 PRINT"[157] ":POKE631,19:POKE632,13:POKE198,2:END
  15.